home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Rexx / Examples / Xtruder_GetFile.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-06-24  |  283 b   |  14 lines
  1. /*
  2. ** 'GetFile' example
  3. */
  4.  
  5. Options Results
  6. Address XTRUDER
  7.  
  8. GetFile TITLE '"Select a file..."' PATH '"S:"' FILE '"user-startup"'
  9.  
  10. IF RC = 5 THEN
  11.    RequestUser TEXT '"You forgot to select a file!"' RESPONSE '"Bugger!"'
  12. ELSE
  13.    RequestUser TEXT RESULT RESPONSE '"That was the one!"'
  14.